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Westmeerbeek, oktober 83 
Beste leden, 


Als alles verloopt zoals gepland,is dit het laatste nummer dat in Westmeer- 
beek samengesteld wordt. De redactie, in casu ondergetekende, wordt momen- 
teel namelijk belast met verbouwing en verhuizing. Waarschijnlijk hebben 
sommigen dit reeds tot ergernis bemerkt aan de onbeantwoorde telefoonop- 
roepen , onze excuses , wij hopen dat binnen een aantal weken de toestand 
alweer gestabiliseerd is. Vanaf +/- 1 november bevindt DAInamic zich op 
volgend adres : Mottaart 20, 3170 Herselt , en heeft de PTT ons bedacht 
met dit telefoonnummer : 014/545974 . Een aantal feiten hebben onze club- 
activiteiten de laatste weken nog bemoeilijkt : — de poststaking in Belgie, 
- het enorme succes van onze verjaardagsaanbieding (er moesten dagelijks 
19 to 30 pakketten de deur uit !), - het chronische gebrek aan DCR-casset- 
tes . Bovendien schijnt PHILIPS een partij cassettes op de markt gebracht 
te hebben die het label "betrouwbaar" beslist niet verdienen. Deze partij 
was voorzien van oranje wieltjes, wat beslist niet wil zeggen dat we alle 
cassettes met oranje wieltjes moeten wantrouwen ... Heeft U уап ons DCR- 
cassettes ontvangen die moeilijkheden geven, dan kunnen deze steeds geruild 
worden. Geef ons echter enige tijd, want onze voorraad is weer totaal uit- 
geput ! Van het floppy-front is er voorlopig nog geen nieuws te melden: 
noch INDATA, noch KEN-DOS hebben ons een compleet werkend systeem ter test 
kunnen aanbieden. Met een 200-tal DCR-cassettes in gebruik wordt het onder- 
tussen op de redactie erg moeilijk om in het software-bos de programma- 
boompjes terug te vinden: de nood aan een degelijk floppy-systeem is erg 
groot ! Wij wensen de heren ontwerpers moed en succes (ор korte termi іп 
graag !). Als dit nummer verschijnt bevinden we ons weer in de gezellige 
drukte van de HCC-dagen in Utrecht, daar wordt weer bewezen dat onze hobby 
maatschappelijk in het licht van de schijnwerpers staat,wie had een paar 
jaar terug kunnen denken dat het zo’n vaart zou lopen ? 

Met de aankondiging van GAMES COLLECTION 12 sluiten we dit voorwoord, tot 
een volgende keer, 


GAMES COLLECTION 12 


(Chase, shoot and hunt ...) 


Duck shooting by Hans Peters 
Slangenjacht by Hendrik-Jan van Randen 
Deer Hunt by Luc Maes 

Cobra by Fred van Amerongen 
Star-hunt by Koert van Espen 


price :audio :750 Bfr , DCR :900 Bfr 
available : 1/11/83 


Dear members, 


Dainamic will be on a new address from ist of november : Mottaart 20, 
3170 Herselt, the new phone number will be : 014/545974. 
It seems that PHILIPS has produced а lot of DCR-cassetts that are not 

100 % reliable , the cassettes have orange wheels. If you have troubles 
whit tapes you got from us, please return for exchange ы 
INDATA-floppy system is not ready , KEN-DOS is not ready : will there never 
come an end to our growing collection of DCR-cassettes 7 

Above you can find the contents of GAMES COLLECTION 12. 


W. Hermans 
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PROGRAMMEERTECHNIEKEN 


Half augustus kreeg ik een band binnen van Koert van Espen die mij zeer inter- 
resseerde. De band was keurig voorzien van de testarray's om inlezen te verge- 
makkelijken en het programmà zelf stond er ook meermalen op, keurig ! 

In de begeleidende brief vertelde Koert de inhoud van de band en verklaarde dat 
hij STARBUILDER volledig zelf had verzonnen. Dit wekte vanzelfsprekend mijn be- 
langstelling en ik laadde het programma dan ook snel in. Het bleek een eenvoudig 
maar aardig actiespel te zijn. Een programma dat, hoewel het vrij klein is, toch 
heel wat te bieden heeft. De bestudering van de listing overtuigde mij ervan dat 
dit inderdaad origineel werk van Koert is. Er zaten weliswaar wat 'foutjes" in, 
maar het geheel en bepaalde details toonden inzicht. Mogelijke problemen werden 
onderkend en de oplossing daarvan meestal gevonden. Aan de andere kant waren de 
foutjes en aanpak soms zo illustratief voor de gedachtengang van vele program- 
meurs (en echt niet alleen beginners!) dat ik besloot Koert op te bellen om hem 
te vragen of ik zijn programma mocht gaan gebruiken als basis voor een van mijn 
artikelen. Koert stemde hiermee in wat ik niet alleen zeer waardeer maar ook be- 
wander. Hij weet dat ik in zijn programma van alles ga bekritiseren en dat dan 
nog eens ga laten publiceren ook. Kritiek zeker indien die opbouwend bedoeld is 
kan prettig zijn maar om ten overstaan van alle DAInamic-lezers (ik hoop tenmin- 
ste dat ze het lezen) je te laten bekritiseren getuigt van moed. 

Ik hoop dan ook dat anderen zich de moeite willen getroosten om Koerts versie te 
bestuderen en dan zelf eens een lijstje te maken met foutjes die zij in dit pro- 
gramma zien of menen te zien en dan pas verder te lezen, 

Daarnaast zijn er natuurlijk ook nog smaakgevoelige punten en mogelijk zelfs pun- 
ten die ik over het hoofd heb gezien. Zou ik inderdaad iets belangrijks over het 
hoofd hebben gezien; laat mij het dan weten, ik kan er in de toekomst rekening 
mee houden. En als ik in een bui even moedig als Koert ben geef ik die onvokomen- 
heid nog toe ook. 


Het oorspronkelijke programma van Koert : 


1e REM Program by Koert Van Espen Date:1983 e8 

20 GOSUB 10000 | 

59 PRINT "Do you want to play - without red bricks (type °1°)?" 

40 PRINT " - with red bricks (type 72°)?" 

Do GI=GETC: IF 61549,8 AND G!«250,0 GOTO 56 

100 FOR Bei TO 3 

119 PRINT CHR$(12):MODE 2А 

120 CURSOR 9,2:PRINT "SCORE: "PS:CURSOR 30,2:FOR Wei TO Z-B:IF В<> 
3 THEN PRINT CHR$(255):" "g 
130 NEXT 

149 DRAW 0,0 ХМАХ,0 3:DRAW 06, YMAX-14 XMAX, YMAX 5: DRAW 0,0 0,ҮМАХ-14 

S:DRAW XMAX,@ XMAX,YMAX-14 3 

1960  X=XMAX/2: Y=YMAX/2 

168 DOT X,Y 5 

174  E=S@:R=15:FOR Kei TO 6!-48 

189 FOR 0=1 TO E: XX INT (RND (2. 0X-2, 0) +1, 0) : YY2 INT (RND (2, O#Y-14, 0) +1 

sØ): IF SCRN(XX, YY) 215 OR SCRN(XX, YY)=3 THEN П-0-1:МЕХТ 

198 ПОТ XX,YY К: NEXT: Ex18: R23: NEXT 

200 ENVELOPE 9 15,200:0,200: : IF T=0 GOTO 1000 

306  HzSCRN(X,YO:IF H=3 GOTO 500 

319 IF Н=15 THEN S=S+100:T=T+1: SOUND © 0 18 @ 4545 

520 IF T=3@ GOTO 966:DOT X,Y S:CURSOR 8,2:PRINT S8;"  ":50UND o 0 15 1 36363 
330 GG=GETC:IF GG=@ THEN 1166:6-6G8:0N 66-15 GOTO 2000, 3000, 4006, 5600 

30% SOUND € 1 15 € 64516:bENVELUPE 1 13,20510,20:5,10: : WAIT TIME 100: S0UND OFF 
510 G=@: 66=0:Т=0: NEXT 

920 PRINT "Again?(Y/N)" 
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530 ASGETC:IF А<>89 AND 44578 THEN S30: IF A=78 THEN END 
800 65=0:66=0: Тед:5-0:00Т0 100 

900 БВБ=0:66=0:Т=0:5=5+5000:50Т0 110 

1900  G-GETC:IF G=@ GOTO 1000 

1190 S=S-1:0N G-15 GOTO 2000, 3400, 4000, 5000 

2000 Y=¥+1:GOTO 599 

5000 Y=Y-1:GOTO 500 


4000 X=X-1:GOTO 500 
5000 X=X+1:GOTO 500 
10099 PRINT CHR$(12):COLORT 7 9 6 @:COLORG 0 3 5 15:MODE 6 
19916 CURSOR 19,18:PRINT "5 TARBUILDER" 
10020 CURSOR 19,17:PRINT "- ---------- " 
10050 CURSOR 19,15:PRINT " KOERT VAN ESPEN” 
10040 PRINT :PRINT :PRINT :PRINT "DO YOU WANT INSTRUCTIONS? (Y/N)" 
19050 G'=GETC:IF G'<>99.0 AND G!'<>78.6 THEN 16050: IF G!=78.@ THEN RETURN 
16060 PRINT CHR$(12):PRINT "Try to catch the white stars as fast as ро 
ssible,":PRINT "but avoid anything that is red coloured." 
16078 PRINT "Use the cursorkeys to move your ship.":RETURN 


ш 5 


Zoals U kunt zien is het een vrij klein programma (40 regels) en als U de moeite 
neemt om het in te tikken kunt U zien dat het bijna altijd goed werkt. 

De enige fout in de werking (HEEFT U DIE GEVONDEN 7777) komt slechts zelden aan 
het licht, Bijna altijd zult U normaal kunnen spelen. 

Bij het bestuderen van de listing zal U zijn opgevallen dat als regelnummers al- 
leen tientallen worden gebruikt; een uitstekende gewoonte, die mij vertelt dat 
niet alleen bij het programmeren zelf is nagedacht, maar ook nadien het programma 
nog eens bekeken werd voor het werd ingestuurd. Dit laatste ontbreekt bij vele 
inzendingen. Velen zijn tevreden zodra het programma werkt. Maar ik vind dat na 
het programmeren zelf altijd nog een of twee stappen horen. De beroepsprogrammeur 
zal na de laatste regel nog een handleiding / bedieningsaanwijzing of iets derge- 
lijks moeten maken OOK als het programma zelf uitleg geeft. Ik zie bi jvoorbeeld 
mensen aan de slag willen gaan met DAInatext. Op de eerste uitleg-pagina staat 
dat je met CSHIFTI+CRETURN] terug kunt komen in het menu, maar dat is niet lees- 
baar als je met de tekst tig bent. Ook de aanwijzing dat je niet eerst [SHIFT] 
en dan [RETURN] moet drukken maar tegelijkertijd met eerst de [SHIFT] en dan pas 
de [RETURN] erbij ontbreekt, De amateurprogrammeur zal zijn programma in een vorm 
moeten vermaken dat hij er mee voor de dag kan komen. Het is toch uw liefhebberij 
en dan is het toch fijn iets moois af te leveren. 

Het eerste is ook voor amateurs aan te bevelen, zeker als hun programma's voor 
anderen bedoeld zijn, Het tweede теп beroepsmensen zich ook moeten aantrekken 
al kunnen die dit om economische redenen (een volgende opdracht wacht) achterwege 
laten. Overigens zou moeten gelden dat juist bij beroepsmensen de structurele op- 
zet al zo groot is dat er weinig meer verbeterd kan worden. 


Zo, en nu komen we dan bij de kritiek aan. 


Zoals reeds eerder vermeld ben ik een tegenstander van het vragen of de gebruiker 
instructies nodig heeft als de uitleg zo kort is als hier. De intro / uitleg staat 
correct aan het eind van de listing met logische regelnummers. Maar deze subrou- 
tine heeft twee RETURNs en dat vind ik voor de structuur minder geslaagd. Het ge- 
heel kan trouwens ook goed met GOTOs gedaan worden. We gaan alleen vanaf regel 20 
naar regel 14409 en keren dan altijd terug naar regel 190. Willen we dan later nog 
een CLEAR opnemen kan dat dan probleemloos. Met CLEAR is het programma trouwens 
beter: nu loopt het stuk na een CLEAR4 voor de RUN. CLEAR 256 is bv goed. 

De regels 50,40 & 50 vind ik bij de uitleg horen, daar de keuze maar eenmaal in het 
programma wordt gemaakt. 
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Over regel 59 nog het volgende : beseft U dat 

59 G-GETC:IF G=49 OR G-58 GOTO 109: 60Т0 56 hetzelfde doet ? 

Maar pas op,Koerts oplossing laat U vrij een regel tussen regel 50 en regel 190 in 
te voegen en de tweede methode niet direct, al is dat aan te passen. In beide mo- 
gelijkheden wordt echter door de AND respectievlijk OR extra tijd gebruikt. Hier 
misschien niet zo belangrijk maar het toetsenbord zal niet zo fijn reageren. 
Vandaar mijn voorstel : 

50 G=GETC:IF G<49 GOTO 59:ІҒ G>54 GOTO 50 

Hetzelfde recept kan ook worden toegepast ор regel 530, 

Koert wist vermoedelijk niet en daarin is hij zeker niet de enige dat bij een IF 
AND of een IF OR combinatie de DAI altijd beide mogelijkheden bekijkt en dan com- 
bineert alvorens actie te ondernemen. Beter zou zijn te stoppen als het toch al 
fout is. Dit is zo bij een OR als al aan de eerste voorwaarde wordt voldaan en 

bij een AND als de eerste al niet voldoet. 

Structureel is de AND en OR te prefereren omdat anderen dan sneller kunnen begrij- 
pen hoe en waarop getest wordt maar uit oogpunt van snelheid (bij DAI) niet. 

Toch maak ik de ontwerpers van de DAI hier geen verwijt. De tijdwinst die soms 
geboekt kan worden gaat weer verloren door structuuronderzoek, terwijl nu de 
programmeur het kan beinvloeden. 


Is de snelheid belangrijk kunnen we meerdere IFs gebruiken en de volgorde juist 
zo maken dat er zo min mogelijk getest Hhoeft te worden. 


De score wordt bijgehouden op regel 320; achter 5 wordt nog een tweetal spaties 
afgedrukt dit is juist, daar anders soms de eindcijfers van een vorig maal kunnen 
blijven staan. Bedenkt U zelf eens waarom twee spaties nodig zijn en in welk ge- 
val een spatie niet vlodoende is. Achter deze " " zou ik echter nog graag een 
"5° willen zien om het zenuwachtige cursorgedrag te beperken. Of beter nog de 
cursor onzichtbaar maken door middel van POKE #75, 52, 


Over regel 186 valt het volgende op te merken X+X is sneller dan 2.0*X. Er is 
juist gebruik gemaakt van floating point getallen 1.0 en 2.9 omdat RND daarmee 
werkt en nu dus sneller is dan met integers. De INT is volledig overbodig en 
vertraagt alleen maar omdat er toch een toewijzing aan een integervariabele is. 


En nu de fout. Koert voorzag terecht dat het mogelijk zou zijn dat een "ster" 
op een reeds geplaatste ster terecht zou komen en dan zouden er maar 29 (of nog 
minder) in plaats van 59 sterren ыл en kunt U nooit 59 sterren ‘opeten’ am 
een nieuw veld te krijgen. 

Koert loste dit schijnbaar goed op door te testen of de gekozen plaats leeg is. 
Is dit niet zo dan verlaagt hij de loopcounter O met 1. Dit is logisch gezien 
een uitstekende oplossing alleen werkt het op de DAI niet !! Aan het begin van 
elke FOR-NEXT loop wordt het aantal malen berekend dat de loop doorlopen moet 
worden. Het tussentijds veranderen van de loopvariabele O (een dummy) heeft dan 
ook geen invloed meer op het aantal malen dat de loop doorlopen wordt. 

Dok heb ik structurele bezwaren tegen een FOR waar twee NEXT'n bijhoren. 

Dok had de test zelf beter gekund, niet alleen de constructie met OR die hier- 
voor al besproken is maar ook het tweemaal laten berekenen van de SCRN(OXX,YY) 
kost ti jd. 

En het is niet nodig: beter is HULPZSCRN(OXX,YYO:IF HULP=15 OR HULP=3 THEN. ssaa 
Nog beter IF SCRN(XX,YY)<>@ THEN ....maar dit is water naar de zee dragen, de 
fout wordt nu mooier en sneller gemaakt. Om de loopvariabele te verminderen is 
hier zinloos. Hoe lossen we het op 7 

Er zijn meerdere methoden voorhanden; ik noem er twee : 
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1) we houden bij hoeveel sterren we plaatsen. Zijn het er bijvoorbeeld maar 28 
dan behoeven we ook maar 28 sterren te pakken voor een nieuw veld. 
In plaats van letterlijk te testen of SCRN(XX,YY)=® is kunnen we de teller 
bijhouden door TELLER=TELLER+1-SGN(SCRN(XX, YY) ) 


II) we kiezen een ander punt als het gekozen punt al bezet was en om tijd te 
winnen kiezen we alleen een nieuwe YY-waarde. 
200 FOR 0=1 TO 36: XX-RND(X) 
218  YYsRND(Y):IF SCRN(XX.YY)<3@ GOTO 2160 
220 NEXT 


Ook de methode van Koert om zowel de witte als de rode punten met dezelfde loop 
neer te zetten overtuigd mij van zijn programmeercapaciteiten. Zonder meer ori- 
gineel maar naar mijn smaak hier de leesbaarheid van het programma zo beinvloe- 
dend, dat ik liever twee losse FOR-NEXT'n zie om de punten te plaatsen. Het is 
nauwelijks meer werk maar wel duidelijker voor anderen. Maar weet dat Koerts op- 
lossing juist is en alleen mijn smaak zegt gekunsteld en niet kunstig. 

Een ander argument tegen Koerts oplossing is dat nu bij de eerste doorgang van 
de loop altijd nodeloos op kleur 3 wordt getest die dan nog niet aanwezig is. 
Maar genoeg over regel 189, het is weliswaar de interressantste regel van het 
programma maar zo vullen we tien DAInamics met alleen dit programma. 


Bij regel 866 worden 6,66 en T op 9 gezet, waarna naar het begin van het program- 
ma wordt gespongen. Het was beter geweest deze initialisering dan daar aan het 
begin te doen. De nulmaking (wat een woord) kan dan ook op regel 519 en regel 999 
achterwege blijven. 

Na deze verandering verhoogt regel 9é6 alleen nog maar de score S met 5004 en gaat 
dan naar 119. We kunnen echter alleen vanuit regel 520 in regel 902 komen en dus 
is het beter daar (regel 302) de verhoging te doen en regel 960 te verwijderen. 
Regel 860 kan na een kleine verandering ook weggelaten worden. 


De ENVELOPE s veranderen nooit en kunnen dus beter bij de initialisatie staan. 


De opbouw van het veld voor het overzicht over het programma in een apart blok 

aan het eind gezet. Dit blok laten beginnen met een aantal GETC's om keybounce 

tegen te даап, In de oorspronkelijk versie was je wel eens al dood nog voor je 

iets gedaan had. Beter gezegd je had wel iets gedaan maar dat was bij de vorige 
beurt. 

De GOTO in regel 200 beviel mij ook niet. De richtingsbepaling is essentieel en 
dus wil ik die voor in het programma. Het moet in feite het eerste zijn dat we 

zien afgezien van initialiseringszaken. 


De methode die Koert gebruikt om de blokjes in beeld te krijgen die aangeven hoe- 
veel ronden er nog zijn is goed en origineel. (zie de regels 120 en 136) 

Toch vond ik het gekunsteld. 'Vreemde' methodes hebben dat nu eenmaal. Als het 
al$ volgt gedaan zou zijn opgelost : 

40 IF В=1 THEN PRINT СНЕФ (255) +" "+СНЕФ (255) 

50 IF B=2 THEN PRINT CHR$(255) +" " 

Gë IF B=3 THEN PRINT " " 

zou, iedereen het zeer snel duidelijk zijn wat er gebeurt. Regel 69 kan zelfs na 
een CHR$(12) weggelaten worden. Hij heeft echter een eigen methode gezocht en dat 
is zeker te waarderen. Zelf ben ik toen ook een aparte oplossing gaan zoeken. 


46 PRINT MID$(CHR$ (255) +" "«CHR$(255)4" ",B*B,3) en de B dan van € tot 2 
en niet van 1 tot 3. Ik wilde echter graag de CHR$(255) vermijden. Ik heb toen 
het volgende gedaan. De desbetreffende regel regelnummer 1 geven en de string die 
de MID$ gebruikt vervangen door "AAAAAAA", Toen naar utility gegaan en op #29F, 
#2A@ gekeken waar de textbuffer begint. Zonder CLEAR zal dit #3EC zijn. Het stuk 
na ЯЗЕС bekeken en de AAAAAAA's opgezocht. (code 41) Vervolgens deze 41?s vervan 
gen door FF 20 FF 20 20 26 26. Voor degenen die niet zo thuis zijn in ASCII-codes 
FF is volle blok en 26 is spatie. Terug naar BASIC en toen in EDIT het regelnum- 
mer weer aangepast. Moet U ook eens doen ! "Vreemde' dingen als U LIST en / of 
EDIT doet met deze regel. 
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Regel 336 stond mij ook niet aan. Het is logisch om de GETC in een andere varia- 
bele te zetten om zo de oorspronkelijke richting te bewaren, maar waarom moest 
bij richtingverandering geen strafpunt gegeven worden ? De ON GG-15 GOTO .... 
dus vervangen door een GOTO beds 


En ondanks dat het spel snel is toch ook principieel kijken naar de gevolgde lo- 
gica. In regel 320 staat een test die onzinnig tenzij het laatste punt een wit 
punt was. De gehele regel hoort dus thuis achteraan in regel 316, 

In regel 559 nu nog IF GG=@ veranderd in IF GG<16 omdat dan ‘TAB? en "RETURN" 

geen problemen meer kunnen geven. 

Door verder het programma iets andere volgorde te geven was het mogelijk regel 330 
en regel 1100 te combineren. Ik vermoed dat Koert er aan heeft zitten denken maar 
er niet uigekomen is. 

Verder heb ik nog een paar schoonheidsfoutjes verbeterd. Het omzetten van floa- 
ting point variabelen in integers (regel 59 en regel 19050) is daar een voorbeeld 
van. 

Ik heb programma tot slot gerenumberd en een naamswijziging doen ondergaan. 

Dit laatste vind ik zelf een grote ingreep daarom nu de argumenten die mij er toe 
brachten het toch te doen. Games collection nummer 12 is een jachtcollectie gewor- 
den en nu leek mij een naam als STAR-HUNTER beter. Ten eerste omdat dat mijns in- 
ziens ook beter de bedoeling van het spel aangeeft en ten tweede omdat die naam 
duidelijk thuishoort in een collectie als nummer 12. 

De gewijzigde versie laat ik nu expres niet zien. U heeft de oorspronkelijke ver- 
sie en met het doornemen van dit artikel kunt U de "nieuwe versie verkrijgen. 

Ook het aanschaffen van Games Collection 12 verschaft U de nieuwe versie. 


Nogmaals Koert hartelijk dank zonder jou was dit artikel niet ontstaan. 


Frank Druijff 





ERRATUM DAInNamic Debugging Tool 


19 REM ERRATUM DAInamic Debugging Tool (TK 5) 

20 REM Please adapt lines 12350/1350/1370 as follows : 

3e REM ---------------------------------------------- 

1350 GOSUB 51900:REM --- REGISTERS TO VARIABLES-—— 

1360 IF РС-РОК(8) OR РС=РОК (8) +1 THEN PC=PCNEXT 

1379 IF RSTCALLFLAG-1 AND SPOLD-SP=2 THEN POKE MLPSTACKPTR*12,PCNEXT 
MOD 256:РОКЕ MLPSTACKPTR+13,PCNEXT SHR 8:60SUB 51000 
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LIGNES О" EKTEMS TOP 


Le moniteur du DAI permet l'utilisation de lignes d'extensions. 
Ceci est possible jusqu'a 3 lignes supplementaires. 
Chaque ligne supplementaire commence par un C et contient & espaces 
à son début. 


Mr Markus SIGG à concu un proramme en langage machine imlp) pour 
manipuler ces lignes 
Ii permet l'utilisation de plus de 3 lignes supplementaires, efface 
le С et permet de mettre plus ou moins de blancs en debut de ligne. 


PUSH H 
LXI H START зба. du programme 
SHLD &CH charge le vecteur de RST 5 
РОР H 
RET 
START PUSH H 
PUSH FSW sAz=dernier car. entre 
CFI орн sest-ce un СК? 


Ji READY isi oui -Fin 

LDA 72H :Fos.Curseur (Foids faible) 
LHLD Zon Fos. dans ligne 

СМЕ L Fin de ligne atteind 7 


ШЧ? READY 15i non -Fin 

CALL OoDDSEH : Imprime un CR 
SPACE MVI 20H espace en ASCII 

MVT : inombres d'espaces 
DUTC EST 8 isortie sur ecran 

DE 

DCR 

JNZ pespace suivant 

FOF 

FOF H 

JHF GL GF DH ; j| normal 


END 





La rautine INIT doit etre utilisée une fois au début du programme. 
Elle remplace l'adresse du vecteur d'interruption RST 5 en #606C/D 
par l'adresse de ce programme. (Ceci peut etre fait sous utilitaire 
en faisant UT , VS-START) 


Le reste du programme sera utilisé par le moniteur à chaque inter- 
ruption RST 3 (Gestion de l'ecran). 

Si vous ne voulez pas d'espace en debut de ligne, sautez ia partie 
SPACE. 

On peut modifier le nombre .d'espaces en changeant le contenu de H 
dans la routine SPACE. 
À la fin du programme on retourne à l'adresse normale de RSTSO:SCóFD 
Ce programme n'a pas d'influence sur la sortie RS 232. 
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DAI RESTART ROUTINES 


Le basic du DAI et le systéme d'exploitation interne sont congus 
de telle fagon qu'il est difficile de les modifier. L'utilisateur ne peut définir 
que les Input/Output (Cassette, Clavier, RS 232C, bus DCE, Gestion de la mémoire). 


Vous pouvez donc écrire vos propres routines (comme le TOS (Tape 
Operating System) du MEMOCOM MDCR qui vérifie les entrées au clavier. Dès que 
(RETURN) est pressée, il regarde s'il y a des commandes DCR.) 


Cette méthode fonctionne tant que le basic ne reprend pas la main 
et dans un programme, vous devez utiliser l'instruction CALLM pour travailler 
avec le MDCR. Mais il y a d'autres moyens d'étendre le basic et le système 
d'exploitation interne. Un de ceux-ci par exemple, est la méthode que le DAI 
utilise pour "switcher" les banques de ROM. Dans les ROM du DAI, les adresses 
EGGG-EFFF existent 4 fois (Dans les banques 0, 1, 2, 3). Le numéro de la banque 
sélectionnée est déterminé par les deux bits les plus significatifs des adresses 
#FD@6 et 440. En basic, la routine ressemblerait а ceci: 

POKE #FD66, (PEEK (HFDGG) ТАМО #3F) IOR (NUMEROBANBUE SHL 6) 
La meme chose pour l'adresse #40. N'essayez pas ceci car le basic utilise la 
banque 9! 


De fagon interne, le DAI utilise la meme méthode pour "switcher" 
les banques chaque fois qu'un appel est effectué aux banques 1, 2 ou 3. Ceci 
ne peut se faire d'une façon directe par l'instruction CALL car un CALL ne 
switche pas les banques. Il existe une instruction spéciale dans le 8080: 
RST X (X=@-7) qui est suivie d'un byte-donnée. RST X est une instruction occupant 
un byte et similaire à CALL. 


. On utilise les RST X suivants Pour connecter les banques: 


RST 4 switche la banque 1 Math & routines Son 
RST 5 switche la banque 2 Bestion d'écran/EDIT 
RST 1 switche la banque 5 Encodage/UTILITAIRE 


TOUS LES NOMBRES SONT EN NOTATION HEXADECIMALE ! 
Par exemple, la routine pour imprimer un caractère sur l'écran est 
RST 5, DATA 3 (EF ӨЗ). C’est un appel à l'adresse #Е005 de la banque 2. 
Le registre À doit contenir le code ASCII du caractère. 
RST 5 est un appel à l'adresse #28 (= 8x5 = 40D). 
А #28, les instructions suivantes préparent l'accès à la banque: 


28 МОР әд 
29 PUSH Н Ei 
2А LHLD GO6C 2A АС ou 
2D PCHL 59 
2Е МОР eo 
2F МОР eo 


А l'adresse S5C/S6D- se trouve FD Có, un saut sera donc effectué à #C4FD avec 

le contenu initial de HL placé au dessus de la pile. Comme tout ceci se trouve en 
RAM, vous pouvez modifier le contenu des adresses #6C/#6D ou #2B. Ces adresses 
peuvent etre modifiées par la commande V (aprés avoir tapé UT). Ex.: 

VS COFD-30@ (flèche gauche). Ceci force le RST 5 à continuer а l'adresse #500 

ou à l'endroit où se trouve votre programme. Un bon exemple est le programme 

de conversion APPLE/ATARI qui fut publié dans une précédente newsletter. 


En utilisant cette méthode, vous pouvez manipuler toutes les 
fonctions des banques 1 à 3 et meme de la banque 9. 
RST 5, DATA 3 par exemple est trés utile. Cette routine est utilisée pour tout 
ce qui doit etre affiché sur l'écran. 


Cette routine est utilisée par PRINT, LIST et tous les messages du DAI. Ainsi, 
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nous pouvons changer toutes ces routines en modifiant: 


1) les contenus des registres GL du 8980. 
2) le pointeur de pile. 

3) l'adresse de retour. 

4) le byte-donnée après RST X. 


Pour ceci nous devons connaitre les contenus des registres, l'objet du RST X 

(la valeur du byte-donnée) ou la valeur du pointeur de pile au moment du 

RST X. (Ceux qui ne connaissent pas le firmware du DAI peuvent se référer aux 
routines publiées dans des précédentes newsletters ou au "Firmware Manual" de 

J. Boerrigter.) Le principal est de vérifier le hyte-donnée parce qu'il détermine 
quelle routine est appellée, et le contenu des registres. 


Comme exemple, nous prendrons RST 5, DATA 3 et supposons que notre routine 
commence à #300. Comment trouver le byte-donnée? Lorsque le RST X est exécuté, 
l'adresse de retour est placée dans la pile et cette adresse est celle du byte- 
donnée car elle pointe directement aprés l'instruction RST X. Avant que le saut 
ne soit fait à votre propre routine, le registre double HL sera placé dans la 
pile (V. l'exemple sur la premiére page). 

Dans notre exemple, le registre À est vérifié aprés que nous ayons trouvé que 
le byte-donnée est 3. Si le caractère est une majuscule, il sera converti en 
minuscule. 

L'interpréteur basic ne reconnait pas les commandes écrites en minuscules. Pour 
cela, nous devons changer de nouveau les commandes écrites en minuscules, en 
majuscules. Ceci peut etre fait. L'interpréteur utilise une routine pour lire 
des caractères sur l'écran (RAM). Cette routine est RST 5, DATA 15. 

Nous devons changer l'adresse de retour aprés cette routine et placer l'adresse 
de notre propre routine et ensuite, vérifier si le caractére regu est une 
minuscule (et dans ce cas, le convertir en majuscule). De cette façon, 
l'interpréteur accepte les commandes en minuscules. La routine complète sera 

la suivante: 


COMMANDES EN MINUSCULES 


300 POP H jretire HL de la pile 

501 XTHL échange HL et le sommet de la pile 
sl’adresse de retour est dans HL 

302 PUSH PSW ssauve PSW 

303 MOV А,М ҘА reçoit le contenu de l'adresse de retour 

304 CPI 3H sEst-ce le byte-donnée pour imprimer 
sun caractère à l'écran? 

306 JZ MAdmin 

309 CPI 15H sEst-ce le byte-donnée pour lire 
sun caractère à l'écran? 

3@B JZ minMAJ 

S@E out? POP PSW sretire HL de la pile 

ЗӨЕ out XTHL ;RST 5 si ce n'est pas la bonne routine 

31e PUSH H | 

311 JMP C&FDH adresse normale du RST 5 

320 MAJmin LDA 118H 

323 CPI FFH 

325 JNZ coute 

328 POP PSW ЗА reçoit de nouveau la valeur ASCII 

329 CPI "ër сі valeur inf. à 7A’, pas d'action 

32B JC out 

32E CPI 91 Zei valeur sup. à 727”, pas d'action 

330 JNC out 
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33B 
33C 
SSF 


240 
341 
344 
345 
346 
348 
34B 
34D 
350 
352 
353 
354 
555 
556 


minMAJ 


ret 


Gut2 


ORI 20H 
JMP out 


POP PSW 
INX H 
XTHL 


PUSH H 
LXI H,ret 
XTHL. 


PUSH H 
JMP C&FDH 
DB 15H 
PUSH PSW 
CPI 7а” 
JC out2 
CPI 123 
JNC out? 
SUI 26H 
XTHL 

MOV H,A 
XTHL 

POP PSW 
RET 

END 
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sconverti en minuscule 


sretire le PSW 

sl’adresse de retour est celle du byte-donnée 
SH H initial 

ssommet de la pile-ancienne adresse de retourti 
ssauve HL 

adresse de retour à notre routine 

sHL=HL initial 

ssommet de pile-nouvelle adresse de retour 
ssommet de pile=Ht initial 

scontinue RST 5 et retour à notre routine 
sbyte-donnée aprés l'adresse de retour 

ssauve les status 

ісі inf. à ’a’, pas d'action 


3 3 


ісі sup. à ’z’, pas d'action 
sconverti en majuscule 
sstatus dans L 


scaractère dans H 


sretour à l'ancienne adresse de retour 
saprès le byte-donnée 


Dans cette routine la conversion n'est pas opérationelle pendant l'entrée de 
commandes basic. Vous pouvez donc mixer majuscules et minuscules. Tous les 
listings meme en UTILITY ou avec l'assembleur DNA seront en minuscules. 


Parfois il n'est pas suffisant de connaitre le byte-donnée ou 
l'adresse de retour si nous voulons changer une routine parce que la routine 

qui utilise d'autres routines différentes avant une instruction RST X est 
utilisée. Comme exemple, prenons les routines d'erreurs du DAI. Si nous voulons 
créer un ON ERRDR GOTO routine, il y a un moment où nous pouvons appeller cette 
routine avant que l'exécution ne soit stoppée. Ce moment est juste avant que 

le message ne s'imprime. Ce message est affiché par (encore!) RST 5, DATA 3. 

Pour savoir si un message d'erreur est imprimé, nous devons regarder la pile 

et le pointeur de pile. Ceci parce que chaque fois qu'une routine différente 

est appellée, elle laisse une adresse de retour au sommet de la pile puis le 
pointeur de pile est décrémenté de deux. 

Cela veut dire que nous pouvons retrouver l'adresse de retour de l'erreur quelque 
part dans la pile. Comme nous pouvons examiner le sommet de la pile au moyen 

de l'instruction DAD SP et que nous connaissons combien de niveau de 
saus-routines se trouvant dans la pile, nous savons toujours si l'appel initial 
est une routine d'erreur. Avec ces connaissances, nous allons traiter la pile 
comme une mémoire normale. Nous ajoutons au pointeur de pile deux fois le nombre 
de niveaux de sous-routines et nous obtenons l'adresse de retour au moyen de 
l'instruction MOV A,M. Si nous trouvons une erreur, le programme basic continue, 
avant qu'un message d'erreur ne s'imprime, à une ligne de programme spécifiée par 
l'utilisateur. Si cette ligne n'existe pas, comme les routines d'erreurs sont 

à ce moment rendues opérationelles, un message "UNDEFINED LINENUMBER" sera 
imprimé. 


En utilisant la méthode décrite ci-dessus, il est possible d'étendre 
le basic du DAI et le systéme d'exploitation. Quelques fois trés facilement, 
quelques fois en recopiant un peu et en modifiant les routines déjà existantes 
en ROM. J'ai écris un programme d'environ 500 bytes utilisant cette méthode 

et qui rend possible l'extension du basic à 65 nouvelles commandes entiérement 
compilées au format standard du basic du DAI. Ceci pour illustrer la puissance 
de cette méthode. J'espére que cet article vous donnera une idée de la fagon 
d'interagir avec le basic du DAI et de faire plus avec votre DAI. 


N.P. Looije 
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STAR DP-510 


CHARACTERISTICS 


€ Printing speed: 100 cps (Normal character) € Super Subscript printing 
ө Bit Image © Mixture printing of varions size characters іп one line 


SPECIFICATIONS ` 











Serial impact dot matrix system 


Parallel interface( Centronics compatible)-standard- 
Serial interface (RS-232C, Current loop) -option- 


Standard characters: 9 x 9 dot matrix 





Printing system 






Interface 




























Block graphic: 6 x 6 dot matrix 
Printing Bit image: (7 or 8) x 480 dot matrix 
composition (single density) 
(7 or 8) x 960 dot matrix 
(double density) 
Direction of Standard characters: Bi-directional printing (with logical | 


seeking) 
Bit image: Uni-directional printing 


80, 96, 132 characters (in case of expanded characters: 
40, 48, 66 characters) 


100 characters / sec 






printing 


Nuber of print 
characters 


Printing speed 











96: Standard ASCII character type 

96: Italic ASCII character type 

64: Special character type 

Character types | 32: Block graphic character type 

96: Proportional ASCII character type ( ж) 
32: Proportional special character type (ж) 
(ж) = option 


2.4 (H) x 2.0 (W) mm 
(in the case of 80 characters/line printing) 
10, 12, 17 characters / inch 


(in the case of expanded characters; 5, 6, 8.5 
characters / inch) 





Character size 

















Character pitch 


















Line pitch 1/6, 1/8, n/72, n/144 inch line feed 
CONTROL CODE 
CR CR code causes print out of buffer. 


STAR DP-515 
NEN PRINTERS 





Paper feed system | Sprocket feed and friction feed 





| Paper feed speed 


10 lines/sec (in case of 1/6 inch line feed) 











Dimensions 


Weight 









392 (W) x 315 (D) x 136 (H) mm 
(15.2 x 12.4 x 5.3 inches) 








Approx. 7kg (15.4 pounds) 





ment 


Roll paper 


Power require - 








100V, 120V.220V, 240V. AC +10%, 50/60Hz, 
approx. 120W (power consumption) 








m FORM SPECIFICATIONS 















Width: 8-10 inches 
Thickness: 0.07 -- 0.1mm 
Width: 8.5 inches 
Thickness: 0.07 -- 0.1mm 











L 


Sprocket. paper 


Diameter of roll: max. 5 inches 

Copy: 3 sheets (original +2 sheets) no 
carbon paper. 

Width: 3 -- 10 inches 


Thickness: 0.07 -- 0.1mm (single paper) 


0.28mm (3 part form) 








E INK RIBBON SPECIFICATIONS 








ribbon 





Dimensions of 


Color Black sigle color 
ribbon 











13 (W) x 10.5 (L) mm (1/2 inch x 11.5 yards) 
Eyelets are provided near both ends. 























E 
One line paper feed is done by an input of LF 

code after buffer data is printed. 

Feed paper to the next VT position where programmed by 

“ESC Pnnnn NUL" after buffer data is printed. 


LF 





Spool standard 


Type SF-02B made by Fuji Kagakushi Kogyo, Co. 





Underwood's plastic type. 13mm x 50mm dia. 


Double width character print mode is selected. 







Sets form length to n lines. 





Sets form length to n inches. 





Paper is fed to the print start line in next page by pre- 
set program (Header line) after buffer data is printed. 





Sets LH-Margin at n columns from left hand 
side in printing area. 





Moves the print head to the next TAB sét 
| position. 








Turns on Double width character print mode. 









Sets RH-Margin at n columns from left hand 
side in printing area. 





Sets new HT positions (Horizontal Tab). 





















SI Turns on Compressed mode. Sets new VT positions (Vartical Tab). 
DC2 Cancell SL mode, ESC - маше after this code is printed with under 
T 
ESC E Selects EMPHASIZE print mode. 





DC4 sien SO-mode. 


Buzzer sounds for 1⁄4 sec. when this code 

















































BEL is input. Cancells EMPHASIZE print mode. 
DCH This code causes printer to be selected. Selects DOUBLE STRIKE print mode. 
DC3 This code causes printer to be deselected. ESC H | Cancells DOUBLE STRIKE print mode. 
ESC O | This code changes line feed length to 1/8 inches. ESC S Super/Subscript mode is selected. 
ESC 1 | This code changes line feed length to 7,/72 inches . Resets "ESC S" and "ESC U" 
ESC 2 | This code changes line feed length to 1/6 inches. Selects uni-direction print mode. 
ESC Зп | This code changes line feed length to п 144 inches. ESC Rn Sets Header line position at n line. 





This code cahnges line feed length to п//72 inches. 


Sets skip over perforation to n lines. 








One time line feed of п,/ 144 inches, 





ESC B1 Sets 10 CPI. 80 columns. 
ESC B2 Sets 12 CPI. 96 columns. 
ESC B3 Sets 17 CPI. 132 columns. 








Resets skip over perforation to zero lines. 





This code selects character ROM set of ITALICS. 








This code resets standard character ROM set 
of ITALICS. 
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Personal Printer Kee 





SPECIFICATIONS 
Print Method ............... Serial impact dot matrix 
Print Rate ..................... 100 characters per second 
Print Direction ............... Bidirectional with logic-seeking 


in the text mode 
Unidirectional in the bit image 
and graphic mode 

Number of Pins in Head ... 9 


Line Spacing ............... 1/6, 1/8, 7/72 inch or 
programmable 

PRINTING CHARACTERISTICS 

Character Set ............... Full 96-characters ASCII with 





descenders plus 11 international 
character sets 


Character Size............... 2.1(W) x 3.1(H)mm (Normal) 

Character Structure ...... Text mode: 9x9 
Bit image: 480 x8, 640 x8, 

720 x8, 960 x8, 
1920 x 8 dots/line 

PRINTING SIZE 
Max. Characters/Line 

Normal ........................ 8 

Enlarged ..................... 40 

Condensed .................. 137 

Condensed-Enlarged...... 68 

Elite... 96 

Elite-Enlarged … … … … … 48 

FORMS HANDLING 

Form Feed .................. Programmable length to 127 lines 

MEDIA HANDLING 

Paper Feed .................. Sprocket pin feed 

Paper Width Range ...... Fanfold; 4" to 10" 

Copies ........................ One original plus two carbon 
copies (total thickness not to 
exceed 0.3mm) 

INTERFACE 

Standard ..................... Centronics-style 8 bit parallel 

Optional ..................... IEEE 488, RS-232C, etc. 

INKED RIBBON 

Colori intenses Black 

Type luii Exclusive cartridge 

Life Expectancy ............ 3 million characters 


ENVIRONMENTAL CONDITIONS| 
Operating Temperature... 5 to 35° centigrade 


Operating Humidity ...... 10 to 8096 non-condensing 

POWER REQUIREMENT 

Voltage ........................ AC 120V, 220/240V 21096, 
49.5 to 60.5Hz 

Power Consumption ...... 70 VÀ max. 

PHYSICAL CHARACTERISTICS 

Height … eens 107mm 

Width .......................- 389mm 

Depth ........................ 303mm 

Weight ........................ 5.1kg 











MAJOR SOFTWARE CONTROL CODES 


Control Code Function 

starts printing 

advances paper one line 

advances paper to top of next form 
vertical tabulation 

T horizontal tabulation 

sets enlarged printing mode 

sets condensed printing mode 
sounds the buzzer 

cancels condensed printing mode 


cancels enlarged printing mode set by 
code 


DEL cancels last printable code 

prints and backs by one character 
selects 8 dot bit image mode 

sets 1/8” line spacing 

sets 1/6” line spacing 

sets n/216” line spacing 

selects alternate character set 
cancels alternate character set 
ignores paper end signal 

enables paper end signal 
sets/cancels underline printing mode 
prints from leftmost to right for one line 
initializes the printer 

sets amount of one line paper feed 
sets form length 

sets emphasized printing mode 
cancels emphasized printing mode 
sets double-strike printing mode 
cancels double-strike printing mode 
selects control code or printable character 
sets normal-density bit image mode 
sets dual-density bit image mode 
sets elite-sized character 

sets skip-over perforation 


< 
4 


ke 


tá 
t 


D D E 
ua 





ESC a 
ESC 0 
ESC 2 
ESC 3+n 
ESC 4 
ESC 5 
ESC 8 


ESC + 
ESC < 
ESC e ` 


ESC C 
ESC E 
ESCF 
ESC G 
ESC H 
ESC I 

ESC K 
ESC L 
ESC M 
ESC N 


О О 
» о 





ESC O cancels skip-over perforation 
ESC P 
ESC Q sets column end 


ESC R 
ESC S 


selects international character set 
sets super/subscript printing mode 





ESC T cancels super/subscript printing mode 
ESC U sets/cancels unidirectional printing 
ESC W sets/cancels enlarged printing mode 


sets double speed dual-density bit image 
modé 


sets quadruple-density bit image mode 
relative horizontal/vertical tabulation 
sets column head 

sets/cancels half speed printing 


ESC Y 


ESC Z 
ESC e | 
ESCI 
ESC s 


Ў 
[s] 
LE 
© 
5 
Н 
= 
а 
б 
с 
2 
а 
g 
a 
5 
B 
E 
à 
o 
z 
5 
о 
К 
2 
e 
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Versatile Printer FX-eDO 


NEN PRINTERS 











SPECIFICATIONS 
Print Method ............... Serial impact dot matrix 
Print Rate ..................... 160 characters per second 
Print Direction ............... Bidirectional with logic-seeking in 


the text mode 
Unidirectional in the graphic mode 
Number of Pins in Head ... 9 


Line Spacing ............... 1/6, 1/8 inch selectable by DIP switch or 
programmable from 1/216 to 255/216 inch 

PRINTING CHARACTERISTICS 

Character Set ............... Full 96-character ASCII with descenders 
plus 9 international character sets 

Character Size............... 3.1(H) x 2.1(W)mm (Normal) 

Character Structure ...... Text mode; 9x9 


Bit image; 480 x 8, 960 x 8, 576 x 8, 
640 x 8, 720 x 8, 1920 x8, 
480 x 9, 960 x 8 dots/line 








PRINTING SIZE 
Max. Characters/Line 
Normal ........................ 80 
Enlarged ............... … 40 
Condensed 137 
Condensed-Enlarged ...... 68 
Elita haie 
Elite-Enlarged 
FORMS HANDLING 
Form Feed .................. Programmable length to 255 lines 
Horizontal Tab … … … … … To 32 positions 
Vertical Tab .................. To 16 positions at 8 channels each with 
Electronical Vertical Feed Unit ' 
MEDIA HANDLING 
Paper Feed .................. Adjustable sprocket pin feed plus 
friction feed 
Paper Width Range ...... Fanfold; 9.5” to 10” 
(with an optional tractor unit; 
4" to 9") 





Roll Paper; 8.5” + 0.12" (with an optional 
roll paper holder) 
Cut Sheet; 8.3" to 8.5" 
Copies: reu One original plus two carbon copies 
(total thickness not to exceed 0.3mm) 


INTERFACE 

Standard ..................... Centronics-style 8 bit Parallel 
Optional ..................... IEEE 488, RS-232C, etc. 
INKED RIBBON 

Colori Black 

Туре мозги шкын RR Exclusive cartridge 

Life Expectancy ............ 3 million characters 


Environmental Conditions 


Operating Temperature … 5 to 35? centigrade 





Operating Humidity ...... 10 to 8096 non-condensing 
POWER REQUIREMENT 

Voltage 120, 220, 240V, 50/60Hz 
Current ] Amp max. 

Power Consumption ...... 70 VÀ max. 


PHYSICAL CHARACTERISTICS 
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| MAJOR SOFTWARE CONTROL CODES 





Control Code Function 
Св Starts printing 
LF advances paper one line 
advances paper to top of next form 





VT vertical tabulation 
HT horizontal tabulation 
sets enlarged printing mode 


ш 








51 
BEL sounds the buzzer 
DC2 cancels condensed printing mode 

cancels enlarged printing mode set by SO code 
DEL cancels last printable code 
BS : prints and backs by one character 





ESC ! - selects print mode | 
ESC %1 selects download character set 

ESC : copies fonts from ROM CG to download CG 

ESC & defines downloadable character font 


selects 8 dot bit image mode 
selects vertical format unit channel 


ESC * 
ESC / 


ESC 0 sets 1/8” line spacing 

ESC 2 sets 1/6” line spacing 

ESC 3 sets n/216” line spacing | 
Е5С 4 selects alternate character set 





ESC 5 
ESC 8 
ESC 9 


cancels alternate character set 

ignores paper end signal 

enables paper end signal 

sets/cancels underline printing mode 
prints from leftmost to right for one line 
sets MSB to logical 1 

sets MSB to logical 0 

initializes the printer 

sets amount of one line paper feed 

sets vertical TAB stop position 

sets form length 

sets horizontal TAB stop position 

sets emphasized printing mode 

cancels emphasized printing mode 

sets double-strike printing mode 
cancels double-strike printing mode 
selects control code or printable character 
sets normal-density bit inage mode 
sets dual-density bit image mode 

sets elite-sized character 

sets skip-over perforation 

cancels skip-over perforation 

sets pica-sized character 

sets column end: 

selects international character set 

sets super/subscripi printing mode 
cancels super/subscript printing mode 
sets/cancels unidirectional printing 
sets/cancels enlarged printing mode 
sets double speed dual-density bit image mode 
sets quadruple-density bit image mode 
sets VFU stop position 

reverses paper feed 

sets column head 

selects special CG 

sets/cancels proportional spacing mode 
ESC s sets/cancels half speed printing 


Specilications are subject to change without notice. 


ESC « 
ESC » 
ESC - 
ESC @ 
ESC A 
ESC B 
ESC C 
ESC D 
ESCE 
ESC F 
ESC G 
ESC H 
ESC I 

ESC K 
ESC L 
ESC M 
ESC N 
ESC O 


ta 

o 

а 
І 








Е5СО 
Е5СВ 
Е5С 5 
Е5С Т 
ESC U 
ESC W 
ESC Y 
ESC 2 
ESC b 
ESC j 
ESC 1 
ESC m 


ti 
щл 





PTS Un oa: Roa де Mi o DE E E ынды a xar binnen BE EE DE ETC 
a TONNES ыы ым си алы PME I аа аста RS a Na UP. ai zich IR T DE I t қаны T D GANT e Ай che INTR De er TU қас арды. Жет a лауға ый TE NET IT RI e are ue DURCH TE 2 


| 


ышы "gg tnt 


IMPRESSIONS of the CENTRONICS 739 





Looking through the back issues of DAInamic and from contacts with other DAI users it would 
seem that most have chosen the EPSON MX. range printers, and having made a different choice 
myself I thought a review af my printer might be of interest, À year or so ago when I started 
investigating printers the advertised price of the Centronics 739 was more or less the same as 
the MX 80, and as my main requirement (after program listing) was for a document printer, I 
decided to go for the Centronics, 


The printer can produce two entirely different character sets, one used for the letter quality 
proportional space characters and the other for standard print. The standard set (10 CPI 
Normal) produces 80 characters/line, and the same set can be compacted for 132 characters/line 
(16.7 CPI Condensed). The printer has a nine wire/pin head which produces a 7x8 matrix for 
Normal and Condensed print, whilst proportional characters are formed by up to 9 vertical and 6 
- 18 harizontal dots. In graphics mode only the top & pins are used, with 594 dot positions per 
line of 8 inches. Each character type can be elongated, and there are optional foreign characters 
selectable by an internal DIL switch. In addition, two other DIL switches select auto line feed 
on/off and a self test function, There are three external controls at the front of the printer, 
on/off, online/local, and rev/forward paper feed, Strangely, the on/off indicator LED was 
mounted inside the case on the main circuit board making it invisible except when looking 
straight down on the top, I have since moved it to the obvious position next to the switch. The 
printer can handle three paper types, 11 x 9,5 inch perforated fan-fold, 8.5 inch continuous roll, 
and single sheets, and runs at 100 cps in the standard and 80 cps in proportional mode, The 
printer can produce super and subscript by shifting the character base line half a line up or 
down, and an underline can be switched on or off anywhere in a line, Within any line the print 
head can be backspaced or moved on any number of dot positions under program control, and this 
can be used to advantage for right hand margin justification, as the print on this page shows, 


Since having the printer I have suffered two breakdowns, the first time a miniature fuse being 
the only casualty, however in the second case I had to replace four diodes, which was less easy 
to trace, Nevertheless, I am well satisfied with the printers overall robustness and the high 
quality print output, Here are some examples... 


9600600096000$600$006000$0900060000006000000009000066060926060600600060000006060000000000060060600600060000000000060000000666060066666665666606606000 


00990090900000000009900926009009609000000000 404900009 HSS OHS HGH HHss 


PROPORTIONAL US 8'0H,7,701234567891 2-22 @ABCDEFGHITKLMNOPORSTUVWXYZL 
VI" 'abcdefghijklmnopqrstuvwxyzCD* 
10. CFI NORMAL !"#%Д&' COS ,-,/0123456789 1$ => ?2PABCDEFGHIJKLMNOFGRS 


TUVWXYZENI4 ^ abcdefahi jklmnoparstuvwxyzt |2” 
16,7 CPI CONDENSED — "tt" ()16,-,/0123456789: }<=>?@ABCDEF GHIUKLMNOPORSTUVWXYZL\14_‘abcdef ahi jklanoparstuvwxyz¢ | 2^ 
PROPORTIONAL ELONGATED !"4t$75£./034--,—./012- 
345367891 <=> 7CGABCDEFPGHIIKLMNOPQRSTUVIWX 
*YwxZL*3^ "abcdefghijklemnopaqrstuvwoxyzrzcl- 
A0 GEI ELONGATED RARE OT OC Bod .— . e DL 27 
«ЗЫМ EG OR ne ET DE EE CE HETE IE PRD aR STU 
WY ZC, ein ce Fat à ie L eaea po ar Ss tases 
mdp LM 
16.7 CPI ELONGATED 1"34*$28'C)*-,—./0123456789 1: 3 «—?80ABCD 


EFGHIJKLMNOPORSTUUWXYZEN3^. ^ abcdefani.jklemnoparstuvwicumc|o^ 


90000%000000000000000000000000000ф000000000000000000000000000000000006 э9000000000000000000000000000000000000000000000000900000000006 
CRK M Bep BRA LOSE SECS ОО EE A CU EDA DODEKAEDER ISDE SCORE SCOR INE 
P569 0997OUQ3UUOUdODOUDU UOS UdO EE QUOS Od 606009009969 0609 00 DEEL LENDE GE et 3065098 


900%0000000000008080600080800000006688064 
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THE BASIC MONITOR «ЕСЕСІ 3n > 


PART iz GENERAL 


This article describes the principles of the BASIC monitor 
routine of the DAI in general. In further articles, the 
details of certain parts of the monitor will be explained. 
As reference for this article, the 'DAI pC FIRMWARE MANUAL’ 
is used. The annexed (simplified) flow chart will be the 
guide through this article. 


The BASIC monitor might be seen as the "heart of the opera- 
ting system of the DAI-BASIC. Under control of this monitor, 
program lines can be entered into the textbuffer, direct 
commands will be executed, the run of a program is control- 
led, a 'break" is managed, etc. 


The monitor is entered by the DAI after a reset or power-on 
at address #6818. Other entries (on #C80C, #С814 and #C923) 
are also used after finishing certain routines. This will be 
explained in part 2. 


INITIALIGATION (#C818-#C843): 


The monitor must be initialised. That means, a defined start 
Situation has to be created. The stackpointer is set, all 
flags indicating the running of inputs, programs, subroutine 
calls and of encoding stored lines are cleared. Result: the 
DAI is ^at rest'. Keyboard interrupts and clock interrupts 
are enabled, otherwise no inputs can be made and no output 
to the screen would be possible. 


INPUT FROM THE EDIT BUFFER (#C946-#C84E) : 


The encoded input switch #0135 is checked. This switch defines 
the source for inputs which have to be encoded. Encoding 
means: Translation of BASIC lines (direct commands or pro- 
gram lines) from the readable BASIC into the code which is 
understandable by the DAI semi-compiler in order to excute 
these lines. In this code a program is also stored in the 
textbuffer. Details about this pseudo-code can be found in 
Newsletter 11, page 176 and further. 


If the input source is the editbuffer, then handling of the 
inputs from this buffer is prepared via #D879, and encoding 
takes place via 40867. When one textline is encoded, the 
monitor starts again at the beginning, until the editbuffer 
is empty. 

See also a previous Newsletter for the "editor story’. 


Remark: Encoding of ‘undefined rubbish" (namely the momentary 
contents of the encoded input buffer) occurs also if the 
switch #0135 is о? !! This firmware failure is based on the 
assumption that #0135 is always 4-2. 
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INPUT FROM KEYROARD (#C851-#C864): 


If the input source is not the editbuffer, but the keyboard, 
the prompt (7x7) is displayed on the screen and the input of 
a BASIC textline is awaited via #DD1A. In plain text: the 
DAI waits for a direct command line or a program line to be 
stored in the textbuffer, which must be entered via the key- 
board. This input sequence is only finished by typing a CR 
C RETURN") or by a break. All characters typed in are dis- 
played on the screen. The screen memory is at the same time 
the onliest place where the inputs are stored. 

When CR is typed, the monitor starts working again. It takes 
the first character from the input line in the screen memory 
for investigation. 


The difference between direct command lines and textlines 
to be stored in the textbuffer is the existance of a line- 
number at the beginning of program lines to be stored. 

If the first character of an input line is a number, then 
the line must be stored in the textbuffer after encoding. 
Otherwise it is a direct command line, and execution of this 
line must take place directly after encoding. 


If the first character in the input line is a CR, then no 
input line is available, and the monitor waits for a new 
input line. 


ENCODING PROGRAM LINES (#C867—-#CB86A) : 


If a program line has been typed in, this line is encoded 
and stored in the textbuffer on the correct location; that 
means in sequence of linenumber. The monitor is restarted 
to get new input lines. 

The details on how encoding is processed will be explained 
in a next article. 


ENCODING OF DIRECT COMMAND LINES (#C86D-#C87D): 


The direct command lines are encoded via the routine for 
encoding a BASIC command via RST1/00. The result of this 
process — the semi-compiled code — is stored in the encoded 
input buffer HOISE-HOIRD. This buffer is 128 bytes large, 

so the maximum length of an encoded program line is there- 
fore 128 bytes, otherwise an error message "LINE TOO COMPLEX” 
will be the result. 

The flag #0117 is set (HFF), simulating а "RUN" of a рғо- 
gram lines the registers BC — used to indicated the position 
in a program line where the monitor is busy executing it — 
point to the beginning of this encoded direct command line 
in the encoded input buffer EBUF, and the direct command 
line will be executed. 
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RUNNING OF DIRECT COMMANDS OR PROGRAM LINES (#C897F-HC88F) z 


The next part is valid both for the execution of direct 
command lines as for the execution of program lines stored 
in the textbuffer. 

The onliest difference is the contents of the register pair 
BC. For direct command execution, it points to the encoded 
input buffer EBUF. For the execution of a program stored in 
the textbuffer, it points to the start of a textline in 
this buffer. 


The first character of a direct command or a stored line is 
taken. If it is a token — an abbreviation for a BASIC com- 
fand — the startaddress of the execution routine of the 
RASIC command belonging to this token is found in the table 
#CFO2, and this routine is executed via #CBA9. 


If the first byte is not a token (#C8E5), then it could be 

a 70% or the length byte at the beginning of a stored рғо- 
gram line. А 70” indicates the end of the textbuffer contents 
(where a 'O' is inserted after the last statement), or the 
end of a direct command line (see #C8976). 

When encountering a °0’, the monitor is restarted. 


If the first byte read by the monitor is the length byte of 
a stored program line, then the trace/step flags are tested 
(#0115/#0116). If one of these flags is set, the new program 
line will be listed on the screen. In case of 'STEP', press- 
ing the spacebar is awaited. 

If no "break" is pressed, the monitor continues on #C87F. 


SPECIAL END OF ACTIONS ‹#СВАА-#СВВ5) : 


If a token has been found, and the particular execution 
routine has been performed, the monitor returns to #С98Ғ. 
Here is checked if the execution routine for the particular 
BASIC routine has eventually a special ending. 

This special end is indicated by a code in accumulator À and 
the carry-flag set after running the BASIC execution routine. 
See for example #DFOS: *STOP*: CY=1, А=5. | 


Four special actions are possible: 

Оз 4C90H—HC915: After "LOAD: If “LOAD? is not a direct 
command, the loaded program will be runned 
immediately. 

1: 4C818: Can't continu: After commands which do change 
program pointers or which alter the contents 
of the textbuffer, the monitor is restarted. 

2: 4CBCO-HCBCB: After a "soft break": The "break" must 
be handled. 

5: SCB8BB8—HCBBHD: After a *STOP’ command in a program 
line. The place where the program execution 
is stopped must be remembered and *STOPPED IN 
LINE ...." has to be printed. Further handling 
will be as a "soft break’. 
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"БОРТ BREAK? HANDLING (GFCBCB-HCBE?) : 


If a "break" has been given during the run of a program, 

"BREAK IN LINE ...." will be printed. А11 pointers which 

are relevant to the program status — the so-called FRAME 

40100-40115 — are saved on stack, and flag #0126, indicating 

the existance of a suspended (- interupted) program is 

set before the monitor is restarted. 

If a ‘break’ is given during excution of a direct command, 
then only a CR is printed. No program status have to be 

saved now. 


SUMMARY OF THE MAIN LOOPS IN THE MONITOR: 


Once the monitor is initialised, a program is stored in the 
textbuffer, and the direct command "RUN? is given, the 
following happens: 


— “КОМ? is a direct command, which is encoded into the en: 
coded input buffer EBUF. Via its token #87, the execution 
routine on 4DF9E іс found. There — amongst others — the 
register pair BC is set to the startaddress of the text- 
buffer, and the monitor is re-entered on point (E). 


— Mia main loop 1, the first character of the textbuffer is 
taken. This is the length byte of the first program line. - 
If no TRACE or STEP flags are set, the monitor returns 
at point (B) with incremented linepointer BC. 


— Mia main loop 2 the monitor continues. If a token is found, 
after the linenumber, the appropriate BASIC excution 
routine is executed, and the monitor continues at point 
(B). 


~ This goes on until the end of the textbuffer - а 70” — 
is found. Then the monitor restarts itself. 


For a direct command line, the same explication applies. 


REMARKS: 


In further articles, some of the details of certain parts 
of the monitor will be explained extendedly. 


For those who are not yet in the possession of the "DAI pC 
FIRMWARE MANUAL”: It can still be obtained by sending an 
Eurocheque or an international postal money order of the 
amount of Hfl. 68.— to *Micro-Service’, Fabritiusstr.i15, 
6174 RG Sweikhuizen, The Netherlands. 


(C) - Jan Boerrigter, July 1983 
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PROGRAMMING TECHNIQUES 
{from DAInamic 13, page 301) 


I will start with my apologies for some errors which crept into my last article, I hope that the 
article was clear enough for you to correct them. 


The main subject on this occasion is colours 16 to 19, with colours 20 to 23 as a subsidiary topic. 
Beginning with the latter, it would be a good thing if all our contributors would employ colours 
20 to 23 when drawing in the 4-colour mode, It is so simple! at the start of the program we give 
a COLORG À BC D, with ABC & D being the 4 wanted colours, Then we give a DRAW instruction 
in the program using 20 if we want colour À, 21 for B, 22 for C and 23 for D. It is good practice 
first to give the COLORG instruction and then the MODE instruction, This avoids starting with, 
say, a bright yellow screen from the previous COLORG and then changing back to the wanted 
colour. In the 15-colour mode the first colour іп COLORG is used For the background and the rim 
too takes on the same colour, This cannot be cleared by а FILL 0,0 XMAX,YMAX С, but only by a 
new COLORG followed by a new MODE 1,3 or 5, The advantage of using colours 20 to 23 lies in 
the fact that beginners can easily change a poor colour combination, I can make excellent use of 
COLORG 0 1 2 3 with my RGB monitor but I am sure viewers in black and white would be unhappy 
with my efforts if I changed over to 4 5 8 13, 


` 
Before we get on to colours 16 to 19 I must explain the screen arrangement in the RAM, If my 
explanation is inadequate refer to the articles by N J Looije or J Boerrigter in previous issues. 


The screen RAM can be seen as two blocks of memory which together determine the ultimate 
picture, The memory banks are separated hardwarewise - the B bank is for even numbered bytes 
and the C bank for the odd numbered ones, This is important for the programmer, 


What follows is the picture construction for the 4-colour modes, The 16-colour modes have а 
different structure. The colour which will be adopted hy a dot on the screen is defined as 
follows t- two bits appropriate to each dot indicate from which of the four colour registers that 
dot will take its colour. Firstly, the standard case ! after a reset we give a COLORG 0 3 9 14 
command and then a MODE 4, The whole screen will become black and then change to MODE 4А, 
By going to Utility with UT we can establish with a Display that all the line control bytes show 
00, (DB000 B500 for example), What happens now if we set these bytes to a different value? Let 
us try, POKE #B000,#AA and see 4 dots appear on the screen coloured red, For those with little 
experience of bit information #AA=10101010, We now follow with POKE #B002,#66 
665201100110). Two small red lines appear next to the dots. POKE 4B001,4FO0 ! Of the four red 
dots the leftmost two change to yellow and two blue ones come up. With these examples and a 
little thought we can reason out how the colouring is effected, 


Evenbytebit Оба Буе Бій Normalcolour Colour in example 


i 0 20 0 = black 
1 б 21 З = red 
% 1 22 9 = blue 
1 1 23 14 = yellow 


It is even passible to have more than four colours in 4-colour modes, The article by N J Looije 
about the video screen RAM gives much information on that topic so I will not discuss it again 
here. I will limit myself to establishing that in any line we want we can choose the colour 
control byte so that the colour registers can be changed one by one. One of the colours can be 
changed per line. We can take care of this with a bit of clever programming whereby we give each 
dot the precise colour we want while still arranging all the colours over the whole screen. 
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But to return to the subject. I wanted to deal with colours 16 to 19, Firstly, the colours above 16 
are not real colours but special applications! colours 20 - 23 refer to the colours of the COLORG 
instruction and the colours 16 - 19 put bytes in the screen RAM on or off, Here we again come 
back to the intraduction! the colour of each dot in a picture is stipulated by two bits, These two 
bits are in two different bytes, one having an even numbered address and the other an odd 
number, the odd one being higher than the even one. By now giving a DRAW instruction with 
colour 17 the bits belonging to the even byte are set to one. If after a reset and MODE 4, the 
command FILL 0,0 44,44 C is given it makes no difference whether C is 5,17 or 21, If without a 
reset but after another program, we use 21 it could happen that we do not get green but some 
other colour. However 21 is better than 5 because using 5 after another program brings with it 
the chance of an error message, COLOUR NOT AVAILABLE. There is no risk of that when 
drawing in colour 17, We will demonstrate the difference between drawings in colours 17 and 5, 
Key in MODE 4 


FILL 22,22 66,66 22 
FILL 0,0 44,44 5 


and see that the green area has overwritten a part of the orange (22=10 standard) square. Tap in 
the instructions again but this time use colour 17 instead of colour 5 and the green area is seen 
to be no longer a square but a kind of L. 


The part where the squares overlap is now a new square coloured white. Let us analyse that! 
Through the MODE 4 command we set (unless we came from MODE 4A) all the bits which 
designate the colour to zero, This is also valid if we had not made colour 0 the first colour of a 
COLORG although the screen is then another colour. The first FILL produces an orange square 
and sets the appropriate memory bits, the even bytes to zero and the odd bytes to one. The 
second FILL, using colour 5 sets the even byte bits to one and the odd byte bits which became 
one on the first FILL, naw become zero again. The resultant colour is therefore that which was 
last given, in this case green (5), Because with the second FILL command we gave 17, only the 
bits of the even bytes will ga to one and the bits of the odd bytes will NOT be changed. Thus the 
area where the two squares overlap, on the first FILL receives ones in the odd bytes, and with 
the second FILL using 17, ones in the even bytes. So this overlap square takes colour 23 
(normally white). We can therefore set at one, only the bits of the even bytes, with a 17. 
However, with a 16 we can zero them again, Similarly with colour 19 we can set to one the bits of 
the odd bytes and with colour 18 switch them to zero again. 


What is the significance of this to the programmer? According to the Manual we can achieve an 
effect of animation, but we must not expect too much from this. The effect is all right in theory 
but the drawing is too slow to give the appearance of film. 


But we will show how this can be done, We do a drawing in colour 17 with a COLORG 0 5 x x and 
then see it on the screen in colour 5 (green). If we choose zero for x in the COLORG we can 
afterwards draw what we want in colour 19 without it being visible, Colour 19 puts ones in the 
odd bytes and therefore the points are either in colour 22 if the other bit is not one, or colour 
23 if the other bit is one, But then the point becomes black, Also green points become black if 
they are drawn over, We can overcome this by letting colour 23 be green. That is, by using 
COLORG 0 5 0 5, When the new drawing in colour 19 is ready we give a COLORG 0 055. 


AU points with two bits set (colour 23) are green and all points with only the bit from the odd 
byte set (colour 22) are green. The points where both bits are zero (colour 20) are black and all 
points where only the bits from the even bytes are at one (colour 21) are black. We thus see 
nothing of the old drawing but all of the new. Then we erase drawing 1. Give all instructions 
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which had colour 17 again, but this time with colour 16 (the bits of the even bytes at zero), or if 
it is quicker, with a FILL 0,0 XMAX,YMAX 16, Then do a new drawing (3) in colour 17, COLORG 0 
5 0 5 and drawing 3 is visible and drawing 2 is not. Erase drawing 2 with colour 18, do drawing 4 
in colour 19 and then again COLORG 0 0 5 5 to make drawing 4 visible and drawing 3 disappear. 
Erase drawing 3 with colour 16, do drawing 5 in colour 17 and then again a COLORG 0505, etc, 
etc. 


In this way we can, for example, draw a car and move it across the screen, If the car takes up a 
lot of lines its speed is tao low for the motion to be classed as animation, Even a drawing of 5 
or 6 lines each with about 20 points can not reasonably be called dashing, Some people may be 
less critical and could find a larger number of lines acceptable. I am thinking of a large scale 
static drawing (in colour 23) with only a few moving parts, such as a clock. Remember though the 
snag which limits these animations to the 2 colours (foreground and background), 


However there are applications where the facilities are suitable in DAI-basic. For example J 
Visser uses them very effectively in his 3-dimensional maze. The situation seen from the 
player's standpoint is shown an the screen. The player chooses a move, the pragram draws the 
fresh situation invisibly and then a COLORG rapidly changes the picture. 


I myself have also written a maze program which by the use of colours 16-19 makes a specified 
part of the screen visible. One thus sees only a small part of the maze, It is done like this! The 
maze is drawn in colour 17, then we put a block in colour 19 (FILL A,B C,D 19). After a COLORG 0 
0 14 9 the maze is invisible because colour 17 signifies even bytes and with odd bytes being 
zero, colour 21, thus O-black. However where the block is, the background is yellow and where 
both maze and block are the colour is 23, thus 9-blue. We can let the block move by drawing a 
line on one side of it in colour 19 and erasing a line on the other side of it with colour 18, 
Another happy incidental is the possibility of giving an inverted colour to a partigular part of 
the picture, Think about it with те: Make a drawing in colour 17 and colour in the required part 
(FILL) with colour 19, Then give a COLORG 0 12 12 0 and the drawing goes blue with a black 
background. But without the FILL this is reversed, So we can point out ar make conspicuous a 
particular part of a picture without disturbing the remainder, 


With this article are a number of programs which show how we can craftily make use of colours 
16-19, [see pages 304 & 305 of DAInamic 13], 


Frank H Druijff 


A CHEAP = VERSATILE EPROM- PROGRAMMER 
(DAInamic 13, p344/9) 





The DAI personal computer has many extended input/output possibilities. With these many 
applications can be realised. This article deals with one such application, 


WHAT IS AN EPROM ? 

An Erasable Programmable Read Only Memory is a memory element which, as its name suggests, 
can be only read by the computer. The characteristic of Read Only Memories is that they do not 
lose their contents when their power supply is switched off, They are thus especially suitable 
for a microprocessor system which must work as soon as it is switched on. ROMs have the 
disadvantage that their contents must be set in the factory, by a process which is only 
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economically attractive for large quantities. An EPROM on the other hand has the ability of 
being repeatedly programmed by the user, After programming the contents can, if needs be, be 
erased with Ultra Violet light. Therefore it is an ideal building block for prototyping, for short 
runs and for the hobbyist. 


PROGRAMMING AN EPROM 

Nowadays most EPROMs are constructed as a matrix of 1024x8, 2048x8 or 4096x8 bits, ie, the 
IK, 2K and 4K EPROM. They can be easily incorporated in a system with words of 8 bits, Fig 1 
shows the EPROMs with type numbers and pin identities, In normal circumstances the EPROM is 
part of a microprocessor system. The microprocessor gives an address, sends a chip select anda 
read signal} then a memory element will be selected and its contents written, via its output 
lines, to the microprocessor. This data can be, for example, the next instruction for the system. 
The EPROM must of course have been programmed, The starting point for this is an erased IC, 
in which all the bits are "1". Programming is the changing of selected bits ta "0" by connecting a 
*25V programming voltage to the Vpp pin, then giving an address and the required data. А 50 
msec TTL pulse on the PROG input then programmes the EPROM. In effect the data is "burned" 
into the addressed memory location. By repeating this process the whole EPROM can he 
programmed, This is usually done by incrementing the address by 1 each time and writing a new 
data word, Table 1 gives the operating specification for the EPROMs, As programming takes 50 
msec for each location, fully programming a 2785 takes 50 sec, a 2716 or 2516 takes 100 sec and 
a 2732 or 2752 takes 200 sec. À programmed EPROM can be erased but professional equipment is 
expensive. Erasure can however be done using a special UV-lamp, the Philips TUV &W-E which 
costs about 50 Dutch guilders. If the EPROM is fastened to the lamp with an elastic band it will 
be wiped clean in 15 to 20 minutes. (Warning! Ultra Violet light damages the eyes, so wear red 
goggles or operate the lamp in a closed box), 


BUILDING A PROGRAMMER 

We have seen that to program an EPROM we must provide an address, a data word and the 
required control signals to the IC, These can all be generated by the DAÍ and sent via the DCE 
bus to the programming equipment, It is also necessary to provide the various voltages which 
the IC needs, The supply voltage, +57 is available from the DAI the +25V programming voltage 
must be separately generated, 


THE HARDWARE 

The EPROM programmer needs connection to the DAI and the 25V supply (figs 2 and 3), The 
programming voltage is provided from a 24V AC supply, rectified, smoothed and then stabilised 
by a 7812 (*12V) voltage regulator which is adjusted to the correct operating level by the 
potentiometer connected to its base lead, The potentiometer should be set so that the output 
level reaches precisely +25V. Fig 2 shows which DCE bus leads are to be connected to the 
EPROM pins. The numbers printed nearest the IC are its pin numbers; the others are for the 
DCE bus, Table 2 shows how the DCE bus is used. 


The schematic (fig 2) shows two relays which are switched by the DAI, via the DCE bus, each 
being buffered by a transistor. 12V relays were chosen as they can use the DAI's power supply. 
There is a 12V, 1A feed in the DAI and here only about 0.5A of it is used, It is also possible to 
use 24V relays, feeding them from the programming voltage, but then a larger 24V transformer 
would be needed to cope with the increased load. The diodes connected across the relay coils are 
to dissipate the voltage surge induced when the relays are switched, a surge which would 
destroy the transistors. One relay selects the 2732 or the other EPROMs as the 2732's 
connections differ from the rest, Three connections have to be switched and most programmers 
accomplish this with a hand operated switch which can cause mistakes, The second relay 
cannects the programming voltage to the IC. All the components can be mounted in a small case. 
The base for the EPROM can be a normal IC socket but as so much care is needed to insert and 
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remove the ICs it is much better to use a zero-insertion-force socket, 


THE SOFTWARE 

The program ensures that the 8255 (DCE bus) is in the correct mode and that the required 
signals are sent, The software consists of bath a BASIC and a machine language section, The 
ML program is put in the Symbol Table and then on the first RUN of the BASIC program, is 
moved to the work area, There are 8 single-key commands which are listed in Table 3, 


Checki checks that the EPROM is in the erased state, The computer reads all memory locations 
and checks that they contain FF, that is, all bits are "1". The message "OK" or "BAD" appears 
as appropriate, 


Load/Next load: These two instructions are meant especially for use with the DNA (DAInamic 
Assembler), The load command loads an object file, address #3000, to the work area, The work 
area is a 4K block of RAM in the DAI where the data destined for the EPROM is stored. See 
Table 4, The load instruction always places the object file at the start address #A000 in the 
work area, The Next load command is used to load several files, one after the other, into the 
work area. À pointer stores the start address for loading subsequent files, The command is 
useful when several small files are to be put into the EPROM} also, when a very large assembler 
program needs to be loaded but it exceeds the 15K buffer size, the program can be divided and 
each part separately assembled. There is a snag! if there is a reference from one part to the 
other such as with a JMP or CALL it is necessary for at least part of the symbol table or EQU 
statements to appear in both parts, 


Three error messages are available for both commands: GAP ERROR and CHECKSUM ERROR are 
identical to those in the BASIC LOADER V1.0, and in addition there is Memory range exceeded, 
It can happen that when loading from an object file, the memory range qf the selected EPROM is 
exceeded; in that case there is an immediate stop and the bytes remaining are not transferred 
to the work area. The DNA psuedo-op REServe cannot be used - Load negates the command, The 
use of DNA with the programmer is summarised as follows! If an assembler program is input it 
can start at an arbitrary location, given by the ORG statement, It will then be assembled and 
written to tape as an object file (40), The EPROM-Programmer can then be loaded after which, in 
Utility, the object file will be read in OR), The Load or Next load command will transfer the file 
to the work area ready for the last step, programming the EPROM. 


Program: Programs the EPROM with the data that is in the work area, 
Read: Reads an EPROM and copies its contents to the work area, 
Туре! Used to select one of the 5 types of EPROM, 


Utility; To jump out of the program into Utility, Useful for examining the work area of the 
memory or reading in an object file, 


Verify: Reads the contents of an EPROM and compares it with the data in the work area, 
Verify permits programming to be supervised, Reports "OK" or "BAD", 


The complete software consists of a source program, an associated machine language program, 
Basic program and the EPROM-Programmer, This is the machine language and Basic sections 
combined in the manner described in DAInamic 4, p135, 


APPLICATIONS 
The programmer can be used in the development of a microprocessor system, The combination of 
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DNA and DAI software presents some nice possibilities, especially for developing an 
8080/8085 system. Use of the programmer need not be restricted to the 5 types of EPROM 
mentioned here. Altering it, for example for a 2708 is relatively simple, while with a suitable 
printed board it is possible to program a one-chip microprocessor like the Intel 8748. There will 
be more about this later if there is sufficient interest. 


COMPONENT LIST 

Most of the items in the component list, Table 5, need no translation. Here are the less obvious 
ones!- Bi Bridge rectifier B40/C1000, Li Green LED, Z1 100mA Fuse. Extras: 2 x 12V 
Relays, fuse-holder, 24V 100mA mains transformer, ribbon cable with 34 pin cannector, zero 
insertion force IC socket, case, mains lead, piece of circuit board. 


G, Knoops 


UNIT COLOUR MODES AND TEXT MODES 
{from DAInamic 13, page 326) 





Dear DAI Friends 


Since the last issue of DAInamic I have had a number of reactions from members and others 
about the unit colour and text modes, The Handbook would appear to be neither clear nor 
sufficiently comprehensive, This letter and the accompanying demonstration program are 
therefore intended to supplement the earlier article. | 


According to the Handbook the DAI recognises eight resolutions, namely! 


> Unit colour mode 4 resolutions = 4 bytes 
> Low resolution 88 blobs per line = 24 bytes ; 
> Medium resolution 176 blobs per line = 46 bytes 
> High resolution 352 blobs per line = 90 bytes 
> Super resolution 528 blobs per line = 134 bytes 


The first omission is that the book says nothing about the number of bytes per line, so the 
numbers shown above are the values normally assumed. Each is calculated from the number of 
bytes for the characters times two, with two added for the LINE MODE BYTE and the COLOUR 
TYPE BYTE. There will be more later about the exceptions. The arrangement of the screen 
hardware shows, in simplified form, the following! Firstly the highest RAM address is loaded 
and twa instructions are read (the LINE MODE and COLOUR TYPE BYTEs) In association a 
counter is loaded with the number of bytes still to be read before the following instructions. At 
the same time readout speed, the number of repeats, the colour mode and character or graphics 
mode are established. When the counter has run down (from top of RAM - length of line) the next 
RAM address holds the following instructions which are then read! LINE MODE BYTE and 
COLOUR TYPE BYTE. 


If for example, in MODE 0 (Super resolution), you put a line in High resolution by replacing the 
LINE MODE BYTE with #6A the video hardware will read 90 of the original 134 bytes, the ?1st 
byte will be read as LINE MODE BYTE and the ?2nd as COLOUR TYPE BYTE. Suppose the 92nd 
is a colour byte set at #00; the hardware puts the line in unit colour mode and the resolution 
then depends on whatever character is in the ?1st byte, The result would be a repeating pattern 
of stripes or bits of characters for a minimum of 11 lines (44 bytes divided up into 11 unit colour 
mode lines) until the hardware encounters the LINE MODE BYTE of the following line. These 
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patterns can be changed by a COLORT x y x x but they do not go away, This is noticeable as all 
lines are pushed down. The technique is used in all the DEMOs of large characters, the 
advantage being that the screen driver moves nicely on to print the next line, The disadvantage 
is that the number of lines is limited and only two colours are possible. To obtain more lines of 
large letters the screen must be divided up anew. Herein lies the Handbook’s second omission, 
there being some exceptions to the above mentioned calculations for the number of bytes in a 
line, Ae the unit colour mode is not dealt with in detail some observations and a table are given 
below. 


EXCEPTIONS & PECULIARITIES 


1 COLOUR BYTE 

There is an important difference between character and graphics modes, namely the place of the 
COLOUR BYTE. 

GRAPHICS >} COLOUR BYTE ADDRESS = DATA BYTE ADDRESS - 1 

CHARACTERS > COLOUR BYTE ADDRESS = DATA BYTE ADDRESS - 3 

This means that the last character in a line gets its colour information from the COLOUR TYPE 
BYTE of the following line. 


2 LOW & MEDIUM RESOLUTIONS 

CHARACTERS > LOW res 12 data bytes total 26 bytes per line 
> MEDIUM res 23 data bytes total 48 bytes per line 

GRAPHICS > LOW res 11 data bytes total 24 bytes per line 
>MEDIUM res 22 data bytes total 46 bytes per line, 

There is thus a variation for characters. 


3 INVISIBLE CHARACTERS 

In all graphics and unit colour modes the whole line is visible, In character modes, apart from 
High resolution, the penultimate character is partly cut off and the last character is invisible. 
In High res the last character is half visible, obtaining its coloyr information from the COLOUR 
TYPE BYTE of the next line, This is visible in a complete picture as a small block in colour 2 of 
the COLORT command, (With the majority of TVs the last characters are not visible) 


4 16 COLOUR CHARACTERS 

For camputers of revision 5 or & onwards this modification is inbuilt as standard. It has the 
same meaning as in 16 colour characters, namely that the screen hardware must first encounter 
a 1 in a character byte before it will change the backgraund colour. This must be taken into 
account when using РОКЕѕ, 


Example i- FA 40 7F 88 44 хх 41 чи 
А А А ^ ^ ^ A A 
LCB CTB МА DATA2 COLI МТЗ COL2 


This makes the line colour x and the character colour y. 


5 UNIT COLOUR MODE 

The hardware has two ways of reading out the unit colour mode, one for MED/LOW res and the 
other for HIGH/SUPER res, In both cases the following 4 bytes are needed per line! LINE MODE 
BYTE, COLOUR TYPE BYTE + DATA + COLOUR BYTE. 


In LOW/MED res the distance between the LINE MODE BYTES is two bytes while for 
HIGH/SUPER the gap is 4 bytes, Thus in the first case the DATA and COLOUR BYTE of the 
first line are respectively LINE MODE and COLOUR TYPE BYTE from the second line, 50 a 
fixed pattern. In the second case the DATA and COLOUR BYTE chosen are filled in, 
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The table below summmarizes the effect oF CONTROL BYTES. 
Control Display Colours Resolution Bytes to new 


Data and Visible fields 
bytes control byte col. bytes and blobs 
vaode byte. Cow hyfe 
8x 40 GRAPHICS 4 LOW 24 il ii - 88 
ix 48 GRAPHICS 4 MEDIUM 46 2 22 - 176 
2x 48 GRAPHICS 4 HIGH 90 44 44 ~ 352 
3x 40 GRAPHICS 4 SUPER 134 8 66 - 528 
4x 40 CHAR 4 LOW 26 12 19 - 97 
SX 40 CHAR 4 MEDIUM 48 23 21 - 173 
6x 40 CHAR 4 HIGH 90 44 4-35 
7x 40 CHAR 4 SUPER 134 66 64 - 519? 
Bx 40 GRAPHICS 14 LOW 24 11 ii- 88 
9x 40 GRAPHICS 16 MEDIUM 46 22 22 - 176 
Ах 40 GRAPHICS 16 HIGH 90 4 44 - 352 
Вх 40 GRAPHICS 16 SUPER 134 66 66 - 528 
Cx 40 CHAR 16 LON 26 12 10 - 8 
Dx 40 CHAR 14 MEDIUM 48 23 21 - 173 
Ex 40 CHAR 14 HIGH 90 44 43 - 345 
Fx 40 CHAR 16 SUPER 134 66 64 - 519 
rr UNIT COLOUR MODE ооо 
9х 08 GRAPHICS 4 LIN 2 1 11- 88 
ix 00 GRAPHICS 4 MEDIUM 2 1 22 - 176 
2x 09 GRAPHICS 4 HIGH 4 1 44 - 352 
3x 00 GRAPHICS 4 SUPER 4 1 66 - 528 
4x 00 CHAR 4 LOW 2 1 11- 88 
5x 00 CHAR 4 MEDIUM 2 1 22 - 176 
6x 00 CHAR 4 HIGH 4 1 44 - 52 
7x 00 CHAR 4 SUPER 4 1 66 ~ 528 
8x 00 GRAPHICS 18 LON 2 1 ii- 88 
9х 00 GRAPHICS 16 MEDIUM 2 1 22 - 176 
Ах 00 GRAPHICS 14 HIGH 4 1 44 - 352 
Bx 0 GRAPHICS 16 SUPER 4 1 &6 - 528 
Cx 00 CHAR 16 LOW 2 1 11- 88 
Dx 00 CHAR 16 MEDIUM 2 1 22 - 176 
Ex 00 CHAR 14 HIGH 4 1 44 -3232 
Fx 00 CHAR 14 SUPER 4 1 66 - 528 


These are the right values for correct screen construction, Here too is a demonstration program 


showing all the possibilities, 


With friendly greetings 
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BANK 


сооо 
CO35 
CO4B 
COSE 
COAC 
C073 
C079 
COAC 
COBB 
CODS 
COF3 
C1FB 
C21E 
C234 
C249 
C361 
C486 
CS1A 
C531 
C573 
CSB2 
C614 
C453 
Céco 
C&CF 
CéF2 
C&FD 
C70E 
C719 
C748 
C7EO 
C7FB 
свос 
C918 
C957 
C9D1 
CAO1 
CA25 
CAS4 
CB23 
СВФЕ 
CBBF 
CD44 
CD8B 
CE70 
CE75 
CEBS 
CEC6 
CECF 
CEE4 
CEF9 
СЕ02 
СЕВЬ 


ROM INDEX compiled by Colin Нагаѕ: Раде 1 


0:%СООО to #EFFF 


Entrypoints 

Package Initialisation 

Load (OODO/1) on stack and continue on this address 
Continue on (ООр2/3) 

Continue on (00D6/7) 

Continue on (ООр2/3) 

Floating point compare 

Integer compare 

Increment integer number in memor y 
Decrement integer number in memory 
Increment floating point number in memory 
Decrement floating point number in memory 
Save FPAC on stack 

Retrieve FPAC from stack 

Input floating point number to FPAC 
Convert а floating point number for output 
Pretties up FPT or INT number 

Move 11 bytes 1 memory location higher 
Move bytes one memory location down 

Input integer number to FPAC 

Convert integer number for output 

Input hex number to IAC 

Convert IAC to hex for Sue pus. 

Math. restart (RST 4) 

ROM bank switching 

Switch to ROM bank 

Screen restart (RST 5) 

Utility/encode (RST 1) 

Reset 

Initialisation screen data 

Initialisation parameters 

Check for highest RAM addr 

Start from scratch 

Encoding when line number is given 

Error while encoding a stored line 
Initialise program buffers 

Memory management routine 

Emergency stop routine (Graphics modes) 
Find string BASIC instruction in table 
Empty HEAP 

Load O into 4 consecutive memory locations 
Strings — BASIC commands 

basiccmd TALK 

Pointers to strings of BASIC commands 
Print *,* 

Print a string between spaces 

Change screen MODE 

Set HEAP size to default value 

Print DAI PERSONAL COMPUTER in medium resolution 
Select ROM bank O , print message 

Print "COMPUTER: under "DAI PERSONAL? 
Pointers to routines BASIC-COMMANDS | 
Strings arithmetic and logical operators 
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D101 
D106 
D121 
D16D 
D195 
D1DB 
D236 
D23D 

D270 
D2A8 
D2B8 
D2C3 
D2F1 
D30F 
D316 
D325 
D340 
D384 
D38D 
D3A2 
D3F4 
DAOC 
D422 
D42E 
pads 
D453 
D480 
DADA 
DAED 
D509 
D524 
D53C 
D550 
D560 
D578 
DS9A 
D606 
D520 
D632 
D63F 
D642 
D668 
р&вр 
D495 
D69C 
D&A5 
D6BB 
D&DA 
D71A 
D720 
D72D 
D750 
D755 
D783 
D78A 
D790 
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Reset pointer OOOOH 

Add string data after end other string 
Compare two strings 

Transfer of string data 

Organise program buffers 

Keyboard scanning: Check source and input 
Set MSB of byte 

basiccmd SAVE 

basiccmd LOAD 

Loading error 

Open tape file 

basiccmd CHECK 

Write block on tape 

Write byte,update checksum 

Write block length, update checksum 
Start file reading 

Read block 

Read byte, calculate checksum 

Read name length 

Read + check program name nd file type 
Read file header 

Write file leader 

Write file trailer 

Start cassette motors 

Stop cassette motors 

Read bit 

Read leader 

Read byte 

Write leader 

Write byte 

Write bit 

Write cycle 

Write trailer bits 

Initiate keyboard pointers 

Keyboard interrupt service (RST 6) 

Scan keyboard, store result 

Break 

Complete keyboard scan 

Bet ASCII value of key pressed 

Get key-ASCII and store it 

Check if output to RS232 

Write 2 blocks + trailer on tape 
Cursor handling 

Print character 
Keyboard scanning: Check if ASCII-buffer full 
Keyboard scanning: Check if new inputs 
Keyboard scanning 

Wait for spacebar 

Stop loading programs 

Initiate writing file leader 

Init SOUND gen,GIC,start HEAP,transfer CASSETTE data 
Check break pointer 

SOUND interrupt (RST 3) 

Failure during ropen 

Check if LOAD during run program 

Check free RAM space 
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D795 
D7A4 
D7D8 
D7DE 
D7EB 


D7F8 


D7FF 


D81D 


D85E 
D879 
DBAS 
рвсв 
DSEO 
D8FB 
D949 
D96B 
D973 
D9A9 
D9CD 
D9DB 
D9E2 
D9FS 
DAOB 
DA3D 
DASd 
рава 


DA7S 


DA94 
DAD4 
DBS2 
DB44 
DB6F 
DD1A 
| DDSS 
| DD6O 
DD94 
DDB4 
DDBA 
DDD1 
DDEO 
DEO2 
DEO9 
DE14 
DE1A 
. DE26 
DESO 
DES? 
. DE41 
DE4F 
DE7C 
DEBS 
DEDS 
DEFE 
DFOS 
DFOC 
DF15 
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Transfer CASSETTE vectors 
DISC/CASSETTE switching vectors 
Write block + trailer on tape 
Failure during ropen 

Write byte on CURSOR pos addr and update CURSOR pos 
SAVE з Write name length 
Initialise loading from tape 
basiccmd SAVEA 

basiccmd LOADA | 

Input from edit buffer 

Initiate SOUND generator 

Output to DCE-BUS 

Input from DCE-BUS 

Initialise interrupt system 

Set up interupt vector area 
Interrupt vector routine 

Update TICC interrupt mask 

Clock interrupt (RST 7) 

Beneral interrupt return 

Enable clock interrupt 

Stack interrupt (RST 2) 

Error handling 

Pointers to error messages 

Error while running program/inputs 
Print error message 

Error when not running program 
Print line number in which error occured 
Pointers to error messages 

Print message 

Print string 

Print string message 

Strings for maching messages 

Scan keyboard and print characters 
Get X-coordinate CURSOR position 
Qutput routine 

Output to RS232 

Input from RS232 

RS232 frame error 

Get character from line, neglect TAB + SPACE, 


Get character from line 


Check if upper case character 
Check if character is number or upper case 
Compare (HL) and (DE) 
Calculate length of block 

Two complement of 16-bits data 
Calculate off-set address 
Calculate address after sting 
Delay routine 

Data block transfer 

Load bank with identical data 
basiccmd NEW 

basiccmd CONT 

basiccmd STEP 

basiccmd STOP 

basiccmd END 

basiccmd IF 
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DF2O basiccmd IF 

ОЕ2А basiccmd GOSUB 

DFAC basiccmd RETURN 

DF43 basiccmd GOTO 

DF&A basiccmd ON 

DF71 basiccmd ON 

DF9E basiccmd RUN 

DFBA basiccmd RUN 

DFCO basiccmd POKE 

DFC? basiccmd OUT 

DFDS basicemd WAIT 

DFF7 basiccmd WAIT mem 

EO16 basiccmd WAIT TIME 

EO2B basiccmd FOR 

EOCS basiccmd NEXT 

EOES basiccmd NEXT 

E13C Save on soft break 7? 
E167 Restore pointers to continue 
E18F basiccmd DATA — REM 

E197 basiccmd LIST us 

EiAA basiccmd LIST 

EiB& basiccmd LIST 

ЕІҒ5 Run edit commamd 

E253 List edit 

E25C List edit 

E265 Initialise EDIT buffer 

E2BS  basiccmd PRINT 

E2FC  basiccmd INPUT 

E323 basiccmd READ 

E401 basiccmd RESTORE 

Е45А basiccmd LET 

EABC  basiccmd SOUND 

ESOC basiccmd NOISE 

ES70 basiccmd ENVELOPE 

ESB2 basiccmd CURSOR 

ESBB basiccmd MODE 

ESC1 basiccmd DOT 

ESCE basiccmd DRAW 

ESD7 basiccmd FILL . 

EGOE basiccmd COLORT 

E615 basiccmd COLORG 

E62F  basiccmd DIM 

Е8ФЕ basiccmd UT 

E6654 basiccmd CALLM 

EGBS basiccmd CLEAR 

E&CE  basiccmd TRON 

E6DS basiccmd TROFF 

EBEE Table of jumps to INT/FPT operator routines 
E9D9 Calculate start address routines 
ESFO Pointers to start address routines 
EBS1 Calculate free RAM space 
ЕВСІ Paddle operation (7?) 

ECCC Print instruction from token 
ECFS Pointers to start address routines 
EESD Set input direction 

EFED Print string 
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